home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / cs42.d81 / ps to geos (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.3 KB  |  103 lines
  1. 10 AD=22528:POKE53281,0:POKE53280,0:PRINT"[147]"
  2. 20 PRINT"     [158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  3. 30 PRINT"     [194]PRINT SHOP TO GEOS CONVERTER[194]"
  4. 40 PRINT"     [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  5. 50 FOR N=1 TO 11:PRINT:NEXT:GOTO190
  6. 60 FF=0:PRINT#15,"U1:2 0"+STR$(T)+STR$(S)
  7. 70 GET#2,A$:TN=ASC(A$+CHR$(0)):GET#2,A$:SN=ASC(A$+CHR$(0))
  8. 80 FORN=0TO7:PRINT#15,"B-P:2,"+STR$(32*N+2)
  9. 90 GET#2,A$:IFA$<>CHR$(131)THEN160
  10. 100 GET#2,A$:TP=ASC(A$+CHR$(0)):GET#2,A$:SP=ASC(A$+CHR$(0)):H$=""
  11. 110 GET#2,A$:IFA$<>CHR$(160)THENH$=H$+A$:GOTO110
  12. 120 IFH$<>DI$THEN160
  13. 130 FF=1:KP=N:N=7
  14. 140 PRINT#15,"B-P:2,"+STR$(32*KP+30)
  15. 150 GET#2,A$:SL=ASC(A$+CHR$(0)):GET#2,A$:SH=ASC(A$+CHR$(0))
  16. 160 NEXT:IFTN=0THENRETURN
  17. 170 IFFF=1THENRETURN
  18. 180 T=TN:S=SN:GOTO60
  19. 190 PRINT"[145][145][145][145][145][145][145][145][145]  PLACE PRINT SHOP DATA DISK IN DRIVE"
  20. 200 PRINT"       PRESS RETURN[146] WHEN READY..."
  21. 210 GET A$:IF A$<>CHR$(13)THEN GOSUB 970:GOTO210
  22. 220 POKE53280,0
  23. 230 PRINT"[147]  ARE THESE GRAPHICS FOR A C[146]OMMODORE"
  24. 240 PRINT"           OR O[146]THER PRINTER?";
  25. 250 GETA$:IFA$="C"THENSF=2:W=6:H=45:GOTO280
  26. 260 IF A$="O"THENSF=3:W=11:H=52:GOTO280
  27. 270 GOTO250
  28. 280 NL=INT(H/8+1)*8:PRINT"[147]"
  29. 290 PRINT"TYPE FILE NAME OR PRESS RETURN[146] FOR LIST":INPUTN$
  30. 300 IFN$=""THENGOSUB680
  31. 310 OPEN15,8,15:OPEN8,8,0,N$:INPUT#15,EN,EB$,ET,ES
  32. 320 IFEN<>0THENCLOSE8:CLOSE15:PRINT"[147]";SPC(20-LEN(EB$)/2)EB$:N$="":GOTO290
  33. 330 PRINT"[147]"SPC(16-LEN(N$)/2)"LOADING "+N$
  34. 340 POKE185,0:POKE780,0:POKE781,0:POKE782,88:SYS65493:CLOSE8:CLOSE15
  35. 350 PRINT"[147]        PLACE GEOS DISK IN DRIVE"
  36. 360 PRINT"       PRESS RETURN[146] WHEN READY..."
  37. 370 GETA$:IFA$<>CHR$(13)THEN GOSUB970:GOTO370
  38. 380 POKE53280,0:PRINT"         SAVING PHOTOSCRAP FILE"
  39. 390 OPEN15,8,15,"I0":INPUT#15,EN,EB$,ET,ES:IFEN<>0THEN1000
  40. 400 OPEN2,8,2,"S,U,W":INPUT#15,EN,EB$,ET,ES:IFEN<>0THEN1000
  41. 410 PRINT#2,CHR$(W)CHR$(NL)CHR$(0)CHR$(2*W)CHR$(0);
  42. 420 FORN=0TOH-1:PRINT#2,CHR$(128+W);:FORM=0TOW-1
  43. 430 PRINT#2,CHR$(PEEK(AD+W*N+M));:NEXT:NEXT
  44. 440 PRINT#2,CHR$((NL-H-2)*W)CHR$(0)CHR$(W*NL/8)CHR$(191)CHR$(0);:CLOSE2
  45. 450 DATA 80,104,111,116,111,32,83,99,114,97,112
  46. 460 P$="":FORN=0TO10:READX:P$=P$+CHR$(X):NEXT
  47. 470 OPEN2,8,2,"#":T=18:S=1:DI$=P$:GOSUB60
  48. 480 IFFF=0THENPRINT"NO PHOTO SCRAP FILE":GOTO640
  49. 490 T1=T:S1=S:FS=256*SH+SL-1:T2=TP:S2=SP:K1=KP
  50. 500 T=18:S=1:DI$="S":GOSUB 60
  51. 510 PRINT#15,"B-P:2,"+STR$(32*KP+3)
  52. 520 PRINT#2,CHR$(T2)CHR$(S2);
  53. 530 PRINT#15,"B-P:2,"+STR$(32*KP+30)
  54. 540 FH=INT(FS/256):FL=FS-256*FH
  55. 550 PRINT#2,CHR$(FL)CHR$(FH);
  56. 560 PRINT#15,"U2:2 0"+STR$(T)+STR$(S)
  57. 570 PRINT#15,"U1:2 0"+STR$(T1)+STR$(S1)
  58. 580 PRINT#15,"B-P:2,"+STR$(32*K1+3)
  59. 590 PRINT#2,CHR$(TP)CHR$(SP);
  60. 600 PRINT#15,"B-P:2,"+STR$(32*K1+30)
  61. 610 PRINT#2,CHR$(SF+1)CHR$(0);
  62. 620 PRINT#15,"U2:2 0"+STR$(T1)+STR$(S1)
  63. 630 PRINT#15,"S0:S"
  64. 640 CLOSE2:CLOSE15
  65. 650 PRINT"[147]DONE"
  66. 660 PRINT"    PLACE GEOS[146] MASTER DISK IN DRIVE"
  67. 670 PRINT"       HIT RESTORE[146] TO REBOOT GEOS":END
  68. 680 OPEN15,8,15,"I0":OPEN2,8,2,"#":X=0:M=0:T=18:S=1:N=0
  69. 690 PRINT"[147]  THE GRAPHIC FILES ON THIS DISK ARE:"
  70. 700 PRINT#15,"U1:2 0"+STR$(T)+STR$(S)
  71. 710 GET#2,A$:TN=ASC(A$+CHR$(0)):GET#2,A$:SN=ASC(A$+CHR$(0))
  72. 720 PRINT#15,"B-P:2,"+STR$(N*32+2)
  73. 730 GET#2,A$:FT=ASC(A$+CHR$(0)):IF(191ANDFT)<>130THENN=N+1:GOTO810
  74. 740 PRINT#15,"B-P:2,"+STR$(N*32+30)
  75. 750 GET#2,A$:FS=ASC(A$+CHR$(0)):GET#2,A$:FS=FS+256*ASC(A$+CHR$(0))
  76. 760 IFFS<>SFTHENN=N+1:GOTO810
  77. 770 PRINT#15,"B-P:2,"+STR$(N*32+5):D$=""
  78. 780 GET#2,A$:IFA$<>CHR$(160)THEND$=D$+A$:GOTO780
  79. 790 X=X+1:M=M+1:IFM=16THENM=0:GOTO840
  80. 800 PRINT"   "+CHR$(34)+D$+CHR$(34):N=N+1
  81. 810 IFN<8THEN720
  82. 820 N=0:T=TN:S=SN:IFT<>0THEN700
  83. 830 IFT=0THEN860
  84. 840 PRINT"        PRESS RETURN[146] TO SEE MORE"
  85. 850 PRINT"    TYPE _ AND PRESS RETURN[146] TO ABORT"
  86. 860 IFX=0THENPRINT"        NONE":GOTO930
  87. 870 PRINT"      PLACE CURSOR NEXT TO NAME OR"
  88. 880 PRINT"   TYPE NAME AND PRESS RETURN[146] TO LOAD":INPUTN$
  89. 890 IF N$="_"THENN$="":GOTO920
  90. 900 IF N$<>""THENCLOSE2:CLOSE15:RETURN
  91. 910 IFT<>0THEN690
  92. 920 PRINT"[147]";
  93. 930 CLOSE2:CLOSE15:PRINT"    PLACE ANOTHER DATA DISK IN DRIVE"
  94. 940 PRINT"       PRESS RETURN[146] WHEN READY..."
  95. 950 GETA$:IFA$<>CHR$(13)THENGOSUB970:GOTO950
  96. 960 POKE53280,0:GOTO680
  97. 970 A=A+1:IFA>10THENPOKE53280,2
  98. 980 IF A>20 THEN POKE53280,0:A=0
  99. 990 RETURN
  100. 1000 PRINT"[147]";SPC(20-LEN(EB$)/2)""+EB$
  101. 1010 PRINT"           RESETTING DRIVE..."
  102. 1020 PRINT#15,"UJ":FORN=1TO1500:NEXT:CLOSE15:CLOSE2:GOTO380
  103.